home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / C / Applications / MacPerl 5.0.3 / MacPerl Source ƒ / Perl5 / t / lib / bigint.t < prev    next >
Encoding:
Text File  |  1995-10-30  |  4.4 KB  |  288 lines  |  [TEXT/MPS ]
  1. #!./perl
  2.  
  3. BEGIN {
  4.     chdir 't' if -d 't';
  5.     chdir '::' unless -d 'lib';
  6. #    @INC = '../lib';
  7.     @INC = '::lib';
  8. }
  9. require "bigint.pl";
  10.  
  11. $test = 0;
  12. $| = 1;
  13. print "1..246\n";
  14. while (<DATA>) {
  15.     chop;
  16.     if (/^&/) {
  17.         $f = $_;
  18.     } else {
  19.         ++$test;
  20.         @args = split(/:/,$_,99);
  21.         $ans = pop(@args);
  22.         $try = "$f('" . join("','", @args) . "');";
  23.         if (($ans1 = eval($try)) eq $ans) {
  24.             print "ok $test\n";
  25.         } else {
  26.             print "not ok $test\n";
  27.             print "# '$try' expected: '$ans' got: '$ans1'\n";
  28.         }
  29.     }
  30. } 
  31. __END__
  32. &bnorm
  33. abc:NaN
  34.    1 a:NaN
  35. 1bcd2:NaN
  36. 11111b:NaN
  37. +1z:NaN
  38. -1z:NaN
  39. 0:+0
  40. +0:+0
  41. +00:+0
  42. +0 0 0:+0
  43. 000000  0000000   00000:+0
  44. -0:+0
  45. -0000:+0
  46. +1:+1
  47. +01:+1
  48. +001:+1
  49. +00000100000:+100000
  50. 123456789:+123456789
  51. -1:-1
  52. -01:-1
  53. -001:-1
  54. -123456789:-123456789
  55. -00000100000:-100000
  56. &bneg
  57. abd:NaN
  58. +0:+0
  59. +1:-1
  60. -1:+1
  61. +123456789:-123456789
  62. -123456789:+123456789
  63. &babs
  64. abc:NaN
  65. +0:+0
  66. +1:+1
  67. -1:+1
  68. +123456789:+123456789
  69. -123456789:+123456789
  70. &bcmp
  71. abc:abc:
  72. abc:+0:
  73. +0:abc:
  74. +0:+0:0
  75. -1:+0:-1
  76. +0:-1:1
  77. +1:+0:1
  78. +0:+1:-1
  79. -1:+1:-1
  80. +1:-1:1
  81. -1:-1:0
  82. +1:+1:0
  83. +123:+123:0
  84. +123:+12:1
  85. +12:+123:-1
  86. -123:-123:0
  87. -123:-12:-1
  88. -12:-123:1
  89. +123:+124:-1
  90. +124:+123:1
  91. -123:-124:1
  92. -124:-123:-1
  93. &badd
  94. abc:abc:NaN
  95. abc:+0:NaN
  96. +0:abc:NaN
  97. +0:+0:+0
  98. +1:+0:+1
  99. +0:+1:+1
  100. +1:+1:+2
  101. -1:+0:-1
  102. +0:-1:-1
  103. -1:-1:-2
  104. -1:+1:+0
  105. +1:-1:+0
  106. +9:+1:+10
  107. +99:+1:+100
  108. +999:+1:+1000
  109. +9999:+1:+10000
  110. +99999:+1:+100000
  111. +999999:+1:+1000000
  112. +9999999:+1:+10000000
  113. +99999999:+1:+100000000
  114. +999999999:+1:+1000000000
  115. +9999999999:+1:+10000000000
  116. +99999999999:+1:+100000000000
  117. +10:-1:+9
  118. +100:-1:+99
  119. +1000:-1:+999
  120. +10000:-1:+9999
  121. +100000:-1:+99999
  122. +1000000:-1:+999999
  123. +10000000:-1:+9999999
  124. +100000000:-1:+99999999
  125. +1000000000:-1:+999999999
  126. +10000000000:-1:+9999999999
  127. +123456789:+987654321:+1111111110
  128. -123456789:+987654321:+864197532
  129. -123456789:-987654321:-1111111110
  130. +123456789:-987654321:-864197532
  131. &bsub
  132. abc:abc:NaN
  133. abc:+0:NaN
  134. +0:abc:NaN
  135. +0:+0:+0
  136. +1:+0:+1
  137. +0:+1:-1
  138. +1:+1:+0
  139. -1:+0:-1
  140. +0:-1:+1
  141. -1:-1:+0
  142. -1:+1:-2
  143. +1:-1:+2
  144. +9:+1:+8
  145. +99:+1:+98
  146. +999:+1:+998
  147. +9999:+1:+9998
  148. +99999:+1:+99998
  149. +999999:+1:+999998
  150. +9999999:+1:+9999998
  151. +99999999:+1:+99999998
  152. +999999999:+1:+999999998
  153. +9999999999:+1:+9999999998
  154. +99999999999:+1:+99999999998
  155. +10:-1:+11
  156. +100:-1:+101
  157. +1000:-1:+1001
  158. +10000:-1:+10001
  159. +100000:-1:+100001
  160. +1000000:-1:+1000001
  161. +10000000:-1:+10000001
  162. +100000000:-1:+100000001
  163. +1000000000:-1:+1000000001
  164. +10000000000:-1:+10000000001
  165. +123456789:+987654321:-864197532
  166. -123456789:+987654321:-1111111110
  167. -123456789:-987654321:+864197532
  168. +123456789:-987654321:+1111111110
  169. &bmul
  170. abc:abc:NaN
  171. abc:+0:NaN
  172. +0:abc:NaN
  173. +0:+0:+0
  174. +0:+1:+0
  175. +1:+0:+0
  176. +0:-1:+0
  177. -1:+0:+0
  178. +123456789123456789:+0:+0
  179. +0:+123456789123456789:+0
  180. -1:-1:+1
  181. -1:+1:-1
  182. +1:-1:-1
  183. +1:+1:+1
  184. +2:+3:+6
  185. -2:+3:-6
  186. +2:-3:-6
  187. -2:-3:+6
  188. +111:+111:+12321
  189. +10101:+10101:+102030201
  190. +1001001:+1001001:+1002003002001
  191. +100010001:+100010001:+10002000300020001
  192. +10000100001:+10000100001:+100002000030000200001
  193. +11111111111:+9:+99999999999
  194. +22222222222:+9:+199999999998
  195. +33333333333:+9:+299999999997
  196. +44444444444:+9:+399999999996
  197. +55555555555:+9:+499999999995
  198. +66666666666:+9:+599999999994
  199. +77777777777:+9:+699999999993
  200. +88888888888:+9:+799999999992
  201. +99999999999:+9:+899999999991
  202. &bdiv
  203. abc:abc:NaN
  204. abc:+1:abc:NaN
  205. +1:abc:NaN
  206. +0:+0:NaN
  207. +0:+1:+0
  208. +1:+0:NaN
  209. +0:-1:+0
  210. -1:+0:NaN
  211. +1:+1:+1
  212. -1:-1:+1
  213. +1:-1:-1
  214. -1:+1:-1
  215. +1:+2:+0
  216. +2:+1:+2
  217. +1000000000:+9:+111111111
  218. +2000000000:+9:+222222222
  219. +3000000000:+9:+333333333
  220. +4000000000:+9:+444444444
  221. +5000000000:+9:+555555555
  222. +6000000000:+9:+666666666
  223. +7000000000:+9:+777777777
  224. +8000000000:+9:+888888888
  225. +9000000000:+9:+1000000000
  226. +35500000:+113:+314159
  227. +71000000:+226:+314159
  228. +106500000:+339:+314159
  229. +1000000000:+3:+333333333
  230. +10:+5:+2
  231. +100:+4:+25
  232. +1000:+8:+125
  233. +10000:+16:+625
  234. +999999999999:+9:+111111111111
  235. +999999999999:+99:+10101010101
  236. +999999999999:+999:+1001001001
  237. +999999999999:+9999:+100010001
  238. +999999999999999:+99999:+10000100001
  239. &bmod
  240. abc:abc:NaN
  241. abc:+1:abc:NaN
  242. +1:abc:NaN
  243. +0:+0:NaN
  244. +0:+1:+0
  245. +1:+0:NaN
  246. +0:-1:+0
  247. -1:+0:NaN
  248. +1:+1:+0
  249. -1:-1:+0
  250. +1:-1:+0
  251. -1:+1:+0
  252. +1:+2:+1
  253. +2:+1:+0
  254. +1000000000:+9:+1
  255. +2000000000:+9:+2
  256. +3000000000:+9:+3
  257. +4000000000:+9:+4
  258. +5000000000:+9:+5
  259. +6000000000:+9:+6
  260. +7000000000:+9:+7
  261. +8000000000:+9:+8
  262. +9000000000:+9:+0
  263. +35500000:+113:+33
  264. +71000000:+226:+66
  265. +106500000:+339:+99
  266. +1000000000:+3:+1
  267. +10:+5:+0
  268. +100:+4:+0
  269. +1000:+8:+0
  270. +10000:+16:+0
  271. +999999999999:+9:+0
  272. +999999999999:+99:+0
  273. +999999999999:+999:+0
  274. +999999999999:+9999:+0
  275. +999999999999999:+99999:+0
  276. &bgcd
  277. abc:abc:NaN
  278. abc:+0:NaN
  279. +0:abc:NaN
  280. +0:+0:+0
  281. +0:+1:+1
  282. +1:+0:+1
  283. +1:+1:+1
  284. +2:+3:+1
  285. +3:+2:+1
  286. +100:+625:+25
  287. +4096:+81:+1
  288.